-- background: 2805 from stack: in.0
-- bmap block id: 2374
-- flags: 4000
-- background id: 0
-- name: Behind HyperFindª
----- HyperTalk script -----
on openBackround
  push recent card
end openBackround

on opencard
  hide menubar
  put the size of this stack into background field "StackSize"
  put the freesize of this stack into background field "Wasted"
end opencard

on idle
  if background field "DATE" is not the Long Date
  then put the Long Date into background field "Date"
end idle

on domenu which
  if which is "Delete Card" or which is "Cut card" or which is "Copy Card" or which is "New Card" then
    beep 3
    answer "There is no need to do this!"
    exit domenu
  end if
  if which is "Protect Stack..." then
    beep 3
    answer "You don't want to do that!"
    exit domenu
  end if
  if which is "Delete Stack..." then
    beep 3
    answer "You really don't want to do that!"
    exit domenu
  end if
  pass domenu
end domenu

on domenu which
  if which is "Cut Button" or which is "Clear Button"
  then
  UpdateResfork,ICON,id
  exit domenu
end if
pass domenu
end domenu




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=47 right=76 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=447 top=44 right=79 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 1006 / 1006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  Play "Boing" 30
  answer "Do you really want to stop HyperCard?" with "Okay" or "Heck No !"
  if it is "Heck No !" then exit mouseUp
  doMenu "Quit HyperCard"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=277 top=43 right=81 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 23022 / 23022
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transfer
----- HyperTalk script -----
on mouseUp
  flash 2
  play "boing" tempo 200 "c4e c dq c e# eh"
  answer"Launch separate application directly." with "Okay!" or "Cancel"
  if it is "Cancel" then exit mouseUp
  global theFile
  put FileName("APPL") into theFile
  if theFile is not empty then
    open theFile
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=197 top=43 right=81 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Application
----- HyperTalk script -----
function buttonName fullName
put the length of fullName into lastChar
repeat with i = lastChar down to 1
  if char i of fullName = ":" then exit repeat
end repeat
return char (i + 1) to lastChar of fullName
end buttonName

on mouseUp
  flash 2
  play "harpsichord" tempo 800 "ch d e f g a b c5w"
  answer "Find an application to load into HyperFindâ„¢." with "Okay!" or "Cancel"
  if it is "Cancel" then exit mouseUp
  put fileName("APPL","Choose an application") into appFile
  if appFile = empty then exit mouseUp
  set cursor to 5
  put buttonName(appFile) into appName
  put GetAppIcon(appFile,appName) into iconNo
  if iconNo = "0" then exit mouseUp
  doMenu "New Button"
  hide button "New Button"
  set name of button "New Button" to appName
  set icon of button appName to iconNo
  set style of button appName to transparent
  set rect of button appName to 150,150,225,200
  -- now construct script for your new button
  put "on mouseUp" & return into buttonScript
  put "open " & quote & appFIle & quote & return after buttonScript
  put "end mouseUp" & return after buttonScript
  set script of button appName to buttonScript
  show button appName
  show menubar
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=240 top=43 right=81 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Document
----- HyperTalk script -----
function buttonName fullName
put the length of fullName into lastChar
repeat with i = lastChar down to 1
  if char i of fullName = ":" then exit repeat
end repeat
return char (i + 1) to lastChar of fullName
end buttonName

on mouseUp
  flash 2
  play "harpsichord" tempo 1000 "c5w b a g f e d ch"
  answer "Find application then load related document." with "Okay!" or "Cancel"
  if it is "Cancel" then exit mouseUp
  put fileName("APPL") into appFile
  if appFile = empty then exit mouseUp
  put fileName() into docFile
  if docFile = empty then exit mouseUp
  set cursor to 5
  put buttonName(docFile) into docName
  put GetDocIcon(appFile,docFile) into iconNo
  if iconNo = "0" then exit mouseUp
  doMenu "New Button"
  hide button "New Button"
  set name of button "New Button" to docName
  set icon of button docName to iconNo
  set style of button docName to transparent
  set rect of button docName to 150,150,225,200
  -- now construct script for the new button
  put "on mouseUp" & return into buttonScript
  put "open " & quote & docFIle & quote & " with " & quote & appfile & quote & return after buttonScript
  put "end mouseUp" & return after buttonScript
  set script of button docName to buttonScript
  show button docName
  show menubar
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=68 top=45 right=79 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 28 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=294 top=97 right=275 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Data4one


-- part 29 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=264 top=283 right=304 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: °  HyperFindª v2.0  °
----- HyperTalk script -----
on mouseUp
  Answer "You are already here!" with "Okay!"
end mouseUp




-- part 34 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=116 top=47 right=64 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: today's time
----- HyperTalk script -----
on idle
  put the time into line 1 of field "today's time"
  pass idle
end idle


-- part 38 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=117 top=48 right=61 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: time


-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=447 top=289 right=317 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  beep 3
  answer "THIS BUTTON DEMANDS THE HELP STACK." with "Stop" or "Continue"
  if it is "Stop" then exit mouseUp
  Help
end mouseUp


-- part 43 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=129 top=281 right=326 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next Card
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to next card
end mouseUp


-- part 47 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=258 top=305 right=323 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date


-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=255 top=303 right=322 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  play boing fast boing fast boing fast
  Answer "This day isn't over yet!" with "Okay !"
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=255 top=277 right=304 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperFind Surprise
----- HyperTalk script -----
on mouseUp
  play "Boing"
  answer "HyperFind™ — the HyperCard Finder!" with " Continue"
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=33 top=283 right=305 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=306 right=327 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 57 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=115 top=46 right=78 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 18086 / 18086
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time button
----- HyperTalk script -----

on mouseUp
  put the time into line 1 of field "today's time"
  show background button id 38
end mouseUp
on mouseDown
  hide background button id 38
end mouseDown





-- part 62 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=0 top=328 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperFindª 2.0 PopUp Launcher - April 9, 1988 - $10.00 STACKWARE FEE
----- HyperTalk script -----
on mousedown
  set cursor to 5
  push card
  visual dissolve to gray
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -10 into horiz
  put item 2 of menuLoc - 260 into vert
  get PopUpMenu("WriteNow;MacWrite;RedWriterâ„¢ 4.3.4;"& "MORE;Microsoft Word;(-;MacDraw 1.9.5;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.31;PackIt III;"& "(-;Open Other;", 0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then open "WriteNow"

  if choice = "2" then open "MacWrite"

  -- this one activates the "MockWrite" DA.Any DA can be used like this.
  -- useful for Stacks w/ no menubar

  if choice = "3" then doMenu "RedWriterâ„¢ 4.3.4"

  if choice = "4" then open "MORE"

  if choice = "5" then open "Microsoft Word"

  if choice = "7" then open "MacDraw 1.9.5"

  if choice = "8" then open "Cricket Draw"

  if choice = "9" then open "MacPaint"

  if choice = "10" then open "SuperPaint"

  if choice = "11" then open "Canvas"

  if choice = "12" then open "Adobe Illustrator"

  if choice = "14" then open "MacCalc"

  if choice = "15" then open "Excel"

  if choice = "17" then open "Double Helix II"

  if choice = "18" then open "Ominus 3 Plus"

  if choice = "20" then open "Red Ryder 10.3"

  if choice = "21" then open "Microphone"

  if choice = "23" then open "StuffIt 1.31"

  if choice = "24" then open "PackIt III"

  if choice = "26" then
    global theFile
    put FileName("APPL") into theFile
    if theFile is not empty then
      visual effect dissolve
      open theFile
    end if
  end if


end mousedown




-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=279 right=331 bottom=27
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperFindª PopUpMenu Launcher; January 9,1988 by Frederick M. McConnell
----- HyperTalk script -----
on mousedown
  set cursor to 5
  push card
  visual dissolve to gray
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -10 into horiz
  put item 2 of menuLoc - 260 into vert
  get PopUpMenu("WriteNow;MacWrite;RedWriterâ„¢ 4.3.4;"& "MORE;Microsoft Word;(-;MacDraw 1.9;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.30;PackIt III;"& "(-;Open Other;", 0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then open "WriteNow"

  if choice = "2" then open "MacWrite"


  -- this one activates the "MockWrite" DA.Any DA can be used like this.
  -- useful for Stacks w/ no menubar
  if choice = "3" then doMenu "RedWriterâ„¢ 4.3.4"

  if choice = "4" then open "MORE"

  if choice = "5" then open "Microsoft Word"

  if choice = "7" then open "MacDraw 1.9"

  if choice = "8" then open "Cricket Draw"

  if choice = "9" then open "MacPaint"

  if choice = "10" then open "SuperPaint"

  if choice = "11" then open "Canvas"

  if choice = "12" then open "Adobe Illustrator"

  if choice = "14" then open "MacCalc"

  if choice = "15" then open "Excel"

  if choice = "17" then open "Double Helix II"

  if choice = "18" then open "Ominus 3 Plus"

  if choice = "20" then open "Red Ryder 10.3"

  if choice = "21" then open "Microphone"

  if choice = "23" then open "StuffIt 1.30"

  if choice = "24" then open "PackIt III"

  if choice = "26" then
    global theFile
    put FileName("APPL") into theFile
    if theFile is not empty then
      visual effect dissolve
      open theFile
    end if
  end if


end mousedown




-- part 68 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=208 top=281 right=315 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=207 top=281 right=315 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Only PopUp Menu
----- HyperTalk script -----
on mousedown
  set cursor to 5
  push card
  visual dissolve to white
  visual dissolve fast to gray
  visual dissolve fast to white
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -20 into horiz
  put item 2 of menuLoc - 260 into vert
  get PopUpMenu("Art Ideas;Button Ideas;Card Ideas;Stack Ideas;"& "Clip Art;(-;Help;Help Index;Help Samples;(-;"& "Area Codes;Address;Datebook;File Index;Phone;"& "Quotations;HyperCalc;Bookshelf;Documents;Slideshow;Plots;"& "(-;Home/H;(-;Open Stack/O", 0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown
  if choice = "1" then open "Art Ideas"
  if choice = "2" then open "Button Ideas"
  if choice = "3" then open "Card Ideas"
  if choice = "4" then open "Stack Ideas"
  if choice = "5" then open "Clip Art"
  if choice = "7" then open "Help"
  if choice = "8" then open "Help Index"
  if choice = "9" then open "Help Samples"
  if choice = "11" then open "Area Codes"
  if choice = "12" then open "Address"
  if choice = "13" then open "Datebook"
  if choice = "14" then open "File Index"
  if choice = "15" then open "Phone"
  if choice = "16" then open "Quotations"
  if choice = "18" then open "HyperCalc"
  if choice = "19" then open "Bookshelf"
  if choice = "20" then open "Documents"
  if choice = "21" then open "Slideshow"
  if choice = "22" then open "Plots"
  if choice = "23" then doMenu "Home"
  if choice = "25" then doMenu "Open Stack..."
end mousedown



-- part 78 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=324 top=65 right=79 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Size Field #2
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  if the freesize of this stack is 0 then exit mouseup
  domenu "compact stack"
  put the size of this stack into background field "StackSize"
  put the freesize of this stack into background field "Wasted"
end mouseup



-- part 79 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=324 top=44 right=58 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Size Field #1
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  put the size of this stack into background field "StackSize"
  put the freesize of this stack into background field "Wasted"
end mouseup



-- part 82 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=35 right=280 bottom=27
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: menus on
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  if the short name of the target is "Menus On" then
    show menubar
    set name of target to "menus off"
  else
    hide menubar
    set name of target to "menus on"
    if the short name of the target is "Menus Off" then
      hide menu bar
      set name of target to "menus on"
    end if
  end if
end mouseUp



-- part 83 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=400 top=44 right=58 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: StackSize


-- part 84 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=400 top=65 right=79 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wasted


-- part 89 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=0 top=4 right=29 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperFindª 2.0  PopUp  Launcher by Frederick M. McConnell
----- HyperTalk script -----
on mousedown
  set cursor to 5
  push card
  visual dissolve to gray
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -20 into horiz
  put item 2 of menuLoc - 2 into vert
  get PopUpMenu("WriteNow;MacWrite;miniWRITER;"& "MORE;Microsoft Word;(-;MacDraw 1.9.5;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.31;PackIt III;"& "(-;Open Other;",0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then open "WriteNow"

  if choice = "2" then open "MacWrite"

  -- this one activates the "MockWrite" DA.Any DA can be used like this.
  -- useful for Stacks w/ no menubar

  if choice = "3" then doMenu "miniWRITER"

  if choice = "4" then open "MORE"

  if choice = "5" then open "Microsoft Word"

  if choice = "7" then open "MacDraw 1.9.5"

  if choice = "8" then open "Cricket Draw"

  if choice = "9" then open "MacPaint"

  if choice = "10" then open "SuperPaint"

  if choice = "11" then open "Canvas"

  if choice = "12" then open "Adobe Illustrator"

  if choice = "14" then open "MacCalc"

  if choice = "15" then open "Excel"

  if choice = "17" then open "Double Helix II"

  if choice = "18" then open "Ominus 3 Plus"

  if choice = "20" then open "Red Ryder 10.3"

  if choice = "21" then open "Microphone"

  if choice = "23" then open "StuffIt 1.31"

  if choice = "24" then open "PackIt III"

  if choice = "26" then
    global theFile
    put FileName("APPL") into theFile
    if theFile is not empty then
      visual effect dissolve
      open theFile
    end if
  end if


end mousedown